Acorn User: China/Acorn User China CD-ROM (UK) (Disc B)/Acorn User China CD-ROM (UK) (Disc B).bin/STUTTGART/FROMUTS/RISCBBS/!RiscBBS_BBS_Enquete

Text File | 1991-11-15 | 1.1 KB | 27 lines

{bg 0 cls more 0 abort 1}
{attr 4 3}  -- Arcland User Enquete --  {attr 0 2}  {_time} / {_online}  {bg 4 cll}
{attr 0 2 open <RiscBBS$Dir>.BBS.EnqAns}
{fg 6}A.{fg 2} What is your age? {fg 3 read V1 3 write V1 age}

{fg 6}B.{fg 2} What is your occupation? {fg 3 read V1 50 write V1 occupation}

{fg 6}C.{fg 2} What do you use your computer for? {fg 3 read V1 50 write V1 compuse}

{fg 6}D.{fg 2} For how long have you been using computers? {fg 3 read V1 20 write V1 comptime}

{fg 6}E.{fg 2} Do you write programs yourself? (Y/n) {fg 3 yesno 1 V1}
{if V1 else goto +F}
   {fg 2}What kind of programs? {fg 3 read V1 50 write V1 p_kind}
   {fg 2}In which language(s)? {fg 3 read V1 50 write V1 p_language}
{label F}
{fg 6}F.{fg 2} Are you sysop of a BBS? (y/N) {fg 3 yesno 0 V1}
{if V1=0 else goto +end}
   {fg 2}What's the name of your BBS? {fg 3 read V1 50 write V1 BBSname}
   {fg 2}What's the number of your BBS? {fg 3 read V1 30 write V1 BBSnumber}

{label end fg 6}
Thank you for answering the enquete!
Enjoy your further stay in {fg 3}Arcland after Dark{fg 6}.

{show <RiscBBS$Dir>.BBS.AnyKey}